10 OPEN 15,8,15,"I0": CLOSE 15
20 OPEN 1,8,3,"$0"
30 FOR I=1 TO 254: GET#1,A$: NEXT
40 F$="":M=M+1:GET#1,A$,T$,S$:T$=T$+CHR$(0):S$=S$+CHR$(0)
50 FOR I=1 TO 16: GET#1,A$: F$=F$+A$: NEXT
60 FOR I=1 TO 10: GET#1,A$: NEXT: IF ST<>0 THEN CLOSE 1: END
70 IF T$<>CHR$(0) THEN PRINT F$"  T="ASC(T$)" S="ASC(S$)
80 GET#1,A$: IF M<8 THEN GET#1,A$,A$: GOTO 40
90 M=0: GOTO 40